home *** CD-ROM | disk | FTP | other *** search
- // Copyright (C) 1997-2002 Alias|Wavefront,
- // a division of Silicon Graphics Limited.
- //
- // The information in this file is provided for the exclusive use of the
- // licensees of Alias|Wavefront. Such users have the right to use, modify,
- // and incorporate this code into other products for purposes authorized
- // by the Alias|Wavefront license agreement, without fee.
- //
- // ALIAS|WAVEFRONT DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
- // INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO
- // EVENT SHALL ALIAS|WAVEFRONT BE LIABLE FOR ANY SPECIAL, INDIRECT OR
- // CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE,
- // DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER
- // TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
- // PERFORMANCE OF THIS SOFTWARE.
- //
- //
- // Alias|Wavefront Script File
- // MODIFY THIS AT YOUR OWN RISK
- //
- // Creation Date: 28 June 1996
- // Author: jb
- //
- //
- // Procedure Name:
- // ObjectMaskPopup
- //
- // Description:
- // This procedure attaches a popup menu to a
- // formlayout in the infoBar that allows users
- // to turn on/off or toggle the state of all
- // the icons in the infoBar selection mask
- // shortcuts.
- //
- // Input Arguments:
- // Parent to attach the menu to.
- //
- // Return Value:
- // None.
- //
-
-
- global proc ObjectMaskPopup( string $parent ) {
-
- // Create a popup - set the flag -mm 1 for
- // a marking menu instead.
- //
- popupMenu -button 1 -mm 0 -p $parent objectMaskPopup;
- menuItem -l "All Objects On"
- -c "setObjectPickMask \"All\" 1";
- menuItem -l "All Objects Off"
- -c "setObjectPickMask \"All\" 0";
-
- menuItem -d true;
-
- menuItem -l "Save to Shelf" -c "saveObjectMaskToShelf";
- setParent -m ..;
- }
-